home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / BEAGLE.BAG.SHK / BEAGLE.BAG / CROSS WORD.bas < prev    next >
BASIC Source File  |  2000-01-01  |  2KB  |  41 lines
  1. 5 ST = 0
  2. 10  TEXT : HOME : NORMAL : ONERR  GOTO 63900
  3. 20 TURN = 0: PRINT "----------------------------------------";: INVERSE : PRINT "         LET'S PLAY CROSS WORD!         ";: NORMAL : PRINT "----------------------------------------  (A LESSON IN USER-FRIENDLY SOFTWARE)": PRINT 
  4. 50  FOR TURN = 1 TO 9: PRINT "PRESS ANY KEY: ";: FLASH : PRINT " <CTRL-H>";: NORMAL 
  5. 60 K =  PEEK( -16384): IF K <160  THEN 60
  6. 65  POKE  -16368,0
  7. 68  IF   NOT ST  THEN ST = 1:X = 1: GOSUB 501: GOTO 80
  8. 70 X =  INT( RND(1) *12) +1: ON X GOSUB 501,502,503,504,505,506,507,508,509,510,511,512
  9. 75 KEY$ =  CHR$(K -128): IF KEY$ = " "  THEN KEY$ = "SPACE"
  10. 80 KEY$ =  CHR$(34) +KEY$ + CHR$(34)
  11. 84  IF X = 10  THEN A$ = " " +KEY$ +" IS A DUMB KEY! "
  12. 85  INVERSE : PRINT A$
  13. 90  NORMAL : IF  LEFT$(A$,4) < >" NOT"  THEN 100
  14. 95  HTAB 21: PRINT "----";
  15. 100  PRINT : FOR I = 1 TO 55:S =  PEEK( -16336): NEXT I,TURN
  16. 110  PRINT "WANNA PLAY AGAIN? (Y/N):";: POKE  -16368,0: GET A$: PRINT A$
  17. 125  POKE  -16368,0
  18. 130  IF A$ = "N"  THEN 160
  19. 135  IF A$ < >"Y"  THEN 150
  20. 140  PRINT : PRINT "DON'T RUSH ME!": HTAB 7: PRINT "----": FOR I = 1 TO 999: NEXT I: PRINT : PRINT : PRINT : GOTO 20
  21. 150  PRINT : PRINT "I SAID Y OR N!! ";: FLASH : PRINT "CAN'T YOU R<CTRL-G>E<CTRL-G>A<CTRL-G>D<CTRL-G>?<CTRL-G>?<CTRL-G>": NORMAL : HTAB 8: PRINT "-    -": GOTO 110
  22. 160  FOR I = 1 TO 23: POKE  -16304,0: FOR J = 1 TO 9: NEXT J: TEXT : FOR J = 1 TO 5:S =  PEEK( -16336): NEXT J,I
  23. 170  PRINT : PRINT "OH, YEAH!?": HTAB 5: PRINT "----": FOR I = 1 TO 2000: NEXT : GOTO 63900
  24. 500  REM <CTRL-M><CTRL-M>CROSS WORDS<CTRL-M>-----------
  25. 501 A$ = " NOT THAT KEY, BOZO! ": RETURN 
  26. 502 A$ = " WHO CARES! ": RETURN 
  27. 503 A$ = " NUTS! ": RETURN 
  28. 504 A$ = " SO WHAT! ": RETURN 
  29. 505 A$ = " DARN! ": RETURN 
  30. 506 A$ = " HECK! ": RETURN 
  31. 507 A$ = " FOOEY! ": RETURN 
  32. 508 A$ = " SO'S YOUR OLD MAN! ": RETURN 
  33. 509 A$ = " RATS! ": RETURN 
  34. 510 A$ = " BALDERDASH! ": RETURN 
  35. 511 A$ = " YOU TURKEY! ": RETURN 
  36. 512 A$ = " GET OUTTA HERE! ": RETURN 
  37. 63900  VTAB 24: PRINT : PRINT : PRINT : PRINT "CROSS WORD, (C) 1982 VISI-GRUMP SOFTWARE": HTAB 5: PRINT "BEAGLE BAG": HTAB 5: PRINT "------------------"
  38. 63910  PRINT "<M> MENU": PRINT "<C> CONTINUE THIS GAME": PRINT "<Q> QUIT": HTAB 5: PRINT "------------------": PRINT "    SELECT:";: GET A$: PRINT A$: IF A$ = "Q"  THEN  END 
  39. 63920  IF A$ = "M"  THEN  PRINT  CHR$(4);"RUN SHORT MENU"
  40. 63930  IF A$ = "C"  THEN 10
  41. 63940  GOTO 63900